#!/usr/bin/env perl


use strict;
use 5.010;


sub max
{ 
    my($a, $b) = @_;
    my $c = 0;
    if($a gt $b)
    {
        $c = $a;
    }
    else
    {
        $c = $b;
    }
    return $c;
}

printf "test\n";
printf &max(10, 15);
printf "\n";
